home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / jul94 / srfig10b.gif < prev    next >
Graphics Interchange Format  |  1996-07-02  |  20.4 KB  |  517x352  |  4-bit (14 colors)
   ocr: l SOLIMEW-Describebuton-pushbutton method pushButton(uar eventinfo Event) var Sqistring String anstbl String enduar if isAssigned(Tableselected) and ableselected < : then anstbl = ":PRIUEdescribe" if strdbtype = "SYBASE" then Sq1String = "sp displaystructure - + Tableselectected.value excutes@LTable(S15tring,strabname,ImisPassword,anstbl) else tbl.attach("a"strestrabnanesa"elated) tbl.enumfieldstruct(anstbl) endif if - tv.open(anstDl, winstyledefault,100,100,5500,4000) then SetTableviewattributes() tw.setritierstruture of Table: "+ Tableselected) tu.wait() tu.close() endif endif endMethod Edit ...